home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #9 / Amiga Plus CD - 2004 - No. 09.iso / amigaplus / tools / amigaos4_only / ifxlite / imagefx3 / rexx / autofx / eot_pondripple.ifx.pre < prev    next >
Text File  |  2004-08-03  |  3KB  |  98 lines
  1. /*
  2.  * $VER: EOT_PondRipple.ifx.pre 2.6 (24.04.96)
  3.  * Copyright © 1992-1996 Nova Design, Inc.
  4.  * Written by Ola Eric Olsson
  5.  */
  6.  
  7. lib = 'rexxmathlib.library'
  8.  
  9. IF EXISTS('libs:rexxmathlib.library') THEN
  10. DO
  11.    IF ~SHOW('L',lib) THEN CALL ADDLIB(lib,0,-30,0)
  12.    IF ~SHOW('L',lib) THEN
  13.    DO
  14.       message = "Can't load "||libs
  15.       requestnotify message
  16.       CALL abort
  17.    END
  18. END
  19. ELSE
  20. DO
  21.    message = "Can't find "||libs
  22.    requestnotify message
  23.    CALL abort
  24. END
  25.  
  26. /******************************************************************/
  27. /** This script sends a ripple from the center of the            **/
  28. /** image out past the edge. If the user draws a region prior    **/
  29. /** to running the script, the center of the region becomes the  **/
  30. /** center of the wave effect.                                   **/
  31. /******************************************************************/
  32.  
  33. OPTIONS RESULTS
  34.  
  35. base  = 'autofx_pondripple_'
  36.  
  37. xcen       = GETCLIP(base||'xcen')
  38. ycen       = GETCLIP(base||'ycen')
  39. startsize  = GETCLIP(base||'startsize')
  40. endsize    = GETCLIP(base||'endsize')
  41. amp        = GETCLIP(base||'amp')
  42. startrad   = GETCLIP(base||'startrad')
  43. damp       = GETCLIP(base||'damp')
  44.  
  45. IF xcen      = "" THEN xcen = -1
  46. IF ycen      = "" THEN ycen = -1
  47. IF startsize = "" THEN startsize = 3
  48. IF endsize   = "" THEN endsize = 3
  49. IF amp       = "" THEN amp  = 100
  50. IF startrad  = "" THEN startrad  = 2
  51. IF damp      = "" THEN damp = 50
  52.  
  53. /******************************************************************/
  54. /** File requester with gadgets.                                 **/
  55. /******************************************************************/
  56.  
  57. title  = '"EOT_PondRipple"'
  58.  
  59. text1  = '"Center of Ripple X:"'
  60. text2  = '"Y:"'
  61. text3  = '"(-1,-1 selects the exact center of the image.)"'
  62. text4  = '"Starting Wave Length:"'
  63. text5  = '"Ending Wave Length:"'
  64. text6  = '"Starting Radius:"'
  65. text7  = '"Wave Amplitude:"'
  66. text8  = '"Dampening Factor:"'
  67.  
  68. gad.1  = 'INTEGER LE=160 TE=10 WD=50 HT=14  LB='text1' IN='xcen
  69. gad.2  = 'INTEGER LE=260 TE=10 WD=50 HT=14  LB='text2' IN='ycen
  70. gad.3  = 'TEXT    LE=160 TE=30 WD=1  HT=1   LB='text3' JU=2'
  71. gad.4  = 'SLIDER  LE=160 TE=55 WD=150 HT=14 LB='text4' IN=3 LO=1 HI=50 LV=%-3ld'
  72. gad.5  = 'SLIDER  LE=160 TE=75 WD=150 HT=14 LB='text5' IN=10 LO=1 HI=50 LV=%-3ld'
  73. gad.6  = 'SLIDER  LE=160 TE=95 WD=150 HT=14 LB='text6' IN=2 LO=1 HI=10 LV=%-3ld'
  74. gad.7  = 'SLIDER  LE=160 TE=115 WD=150 HT=14 LB='text7' IN=100 LO=20 HI=500 LV=%-3ld'
  75. gad.8  = 'SLIDER  LE=160 TE=135 WD=150 HT=14 LB='text8' IN=50 LO=10 HI=80 LV=%-3ld'
  76. gad.9  = 'END'
  77.  
  78. newcomplexrequest title gad 380 160
  79. IF rc ~= 0 THEN EXIT rc
  80.  
  81. xcen      = RESULT.1
  82. ycen      = RESULT.2
  83. startsize = RESULT.4
  84. endsize   = RESULT.5
  85. startrad  = RESULT.6
  86. amp       = RESULT.7
  87. damp      = RESULT.8
  88.  
  89. CALL SETCLIP(base||'xcen',xcen)
  90. CALL SETCLIP(base||'ycen',ycen)
  91. CALL SETCLIP(base||'startsize',startsize)
  92. CALL SETCLIP(base||'endsize',endsize)
  93. CALL SETCLIP(base||'amp',amp)
  94. CALL SETCLIP(base||'startrad',startrad)
  95. CALL SETCLIP(base||'damp',damp)
  96.  
  97. EXIT
  98.